home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / iritsm3s.zip / SOLID1.IRT < prev    next >
Text File  |  1991-11-30  |  679b  |  38 lines
  1. #
  2. # This simple solid was taken from: Geometric Modeling,
  3. # by Michael E. Mortenson page 440.
  4. #
  5. #                Created by Gershon Elber,    Jan 89
  6. #
  7.  
  8. save_mat = view_mat;
  9. view_mat = view_mat * scale(vector( 0.2, 0.2, 0.2 ));
  10.  
  11. A = BOX(vector(  -1, -1,   -2), 2, 2, 4);
  12. B = BOX(vector(-0.5, -2,   -1), 2, 4, 2);
  13. C = BOX(vector(   0, -3, -0.5), 2, 6, 1);
  14.  
  15. D = A + B;
  16. free(A);
  17. free(B);
  18. beep(1000, 100);
  19. interact(list(D), false);
  20.  
  21. E = D - C;
  22. free(C);
  23. free(D);
  24. beep(1000,100);
  25.  
  26. final = convex(E);
  27. free(E);
  28. interact(list(final), false);
  29. num_polys = cpoly(final);
  30.  
  31. save("solid1", list(view_mat,final));
  32. free(final);
  33.  
  34. dumplvl = 1;
  35. num_polys;
  36.  
  37. view_mat = save_mat;
  38.